home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / VESCAPE1.S < prev    next >
Text File  |  1993-03-25  |  2KB  |  85 lines
  1. ;*========================================================================
  2. ;* VDIFAST Public Domain VDI bindings.
  3. ;*========================================================================
  4.  
  5. ;*-----------------------------------------------------------------------
  6. ;* Some VDI escapes, as usual glommed together because they all take
  7. ;* the same sorts of parms (intin only) and it only costs a few bytes
  8. ;* to put them all together here like this.
  9. ;*-----------------------------------------------------------------------
  10.  
  11.           globl     _v_escape2000
  12. _v_escape2000:
  13.           move.w    #2000,d0
  14.           moveq.l    #1,d1
  15.           bra        do_it
  16.  
  17.           globl     _vs_mute
  18. _vs_mute:
  19.           moveq.l    #62,d0
  20.           moveq.l    #31,d1
  21.           bra        do_it
  22.  
  23.           globl     _vsc_expose
  24. _vsc_expose:
  25.           moveq.l    #93,d0
  26.           moveq.l    #1,d1
  27.           bra        do_it
  28.  
  29.           globl     _vt_alignment
  30. _vt_alignment:
  31.           moveq.l    #85,d0
  32.           moveq.l    #2,d1
  33.           bra        do_it
  34.  
  35.           globl     _vsp_film
  36. _vsp_film:
  37.           moveq.l    #91,d0
  38.           moveq.l    #2,d1
  39.           bra        do_it
  40.  
  41.           globl     _vt_origin
  42. _vt_origin:
  43.           moveq.l    #83,d0
  44.           moveq.l    #2,d1
  45.           bra        do_it
  46.  
  47.           globl     _v_sound
  48. _v_sound:
  49.           moveq.l    #61,d0
  50.           moveq.l    #2,d1
  51.           bra        do_it
  52.  
  53.           globl     _vs_curaddress
  54. _vs_curaddress:
  55.           moveq.l    #11,d0                ; subfunc 11
  56.           moveq.l    #2,d1                ; 2 intin parms on stack
  57.           ; fall thru into do_it
  58.  
  59. do_it:
  60. ;    .cargs    #8,handle.w,intins.w
  61.  
  62. handle      =         8
  63. intins      =         10
  64.  
  65.           link        a6,#-2
  66.  
  67. ;          VContrl    #5,d0,,d1
  68.           move.w    handle(a6),-(sp)    ; contrl[6]
  69.           move.w    d0,-(sp)            ; contrl[5]
  70.           subq.l    #2,sp                ; contrl[4]
  71.           move.w    d1,-(sp)            ; contrl[3]
  72.           subq.l    #2,sp                ; contrl[2]
  73.           clr.w     -(sp)                ; contrl[1]
  74.           move.w    #5,-(sp)            ; contrl[0]
  75.  
  76.           subq.l    #4,sp                ;* -> ptsout
  77.           pea        -2(a6)                ;* -> intout
  78.           subq.l    #4,sp                ;* -> ptsin
  79.           pea        intins(a6)            ;* -> intin
  80.           pea        16(sp)                ;* -> contrl
  81.  
  82.           jmp        vdicall
  83.  
  84.           end
  85.